perm filename KOF.F4[CMS,LCS] blob sn#109258 filedate 1974-07-02 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION INA(1500),IOA(1200),IBA(1000),NE(64)
C00003 ENDMK
CāŠ—;
	DIMENSION INA(1500),IOA(1200),IBA(1000),NE(64)
22	N=0
	NB=0
	LL=1
	J=0
1	J=J+1
11	TYPE 2
2	FORMAT(' TYPE IN:'/)
	ACCEPT 3.(INA(K),K=LL,LL+14)
3	FORMAT(15A5)
	IF(INA(LL).EQ.'     ')GO TO 5
	JB= 15
27	CALL MOLD(JB,INA(LL),N,IOA(1),NB,IBA(1),NE(J))
	IF(JB.EQ.15)LL=LL+15
	GO TO 1
5	TYPE 6
6	FORMAT(1X15A5/)
	TYPE 7,LL,N,NB,J
7	FORMAT(1X4I/)